10 PRINT"[147]":POKE53280,0:POKE53281,0:GOSUB60000
20 POKE51,0:POKE52,110:POKE55,0:POKE56,110:CLR:TEM=36864:ML=32768
30 SB=53265:DV=PEEK(186):IFDV<8THENDV=8
40 SYS57812"FVTOOLBOX 9000",DV,0:POKE780,0:POKE781,0:POKE782,144:SYS65493
50 SYSTEM+30,"FS PRINTER/ML",DV,32768
60 VL$="                      "
70 PK$="PRESS ANY KEY TO CONTINUE"
80 :
90 POKESB,PEEK(SB)AND239:PRINT"[147]"CHR$(142)CHR$(8)
100 PRINT"[129]"TAB(9)VL$:PRINTTAB(9)"[158] FONT STUDIO PRINTER  ":PRINTTAB(9)"[129]"VL$
110 SYSTEM+18,216:POKESB,PEEK(SB)OR16:PD=0
120 :
130 SYSTEM+21,216:IFPDTHEN170
140 GOSUB380:PD=1:IFFL=1THEN140
150 IFFLTHENPD=0:GOTO130
160 :
170 SYSML
180 SYSTEM+15,16,23,11,15,160,7:SYSTEM+15,9,30,16,19,160,7:PRINT"[158]";
190 FORI=0TO3:SYSTEM+24,18,12+I,STR$(8+I):NEXT
200 SYSTEM+24,14,17,"SELECT DRIVE ":PRINT:PRINTTAB(13)"FOR FONT DISKS"
210 SYSTEM+48,12,18,21,4,7,7,0
220 FDV=F%+7:CLOSE2:OPEN2,FDV,2:CLOSE2
230 IFSTTHEN210
240 SYSTEM+21,216:SYSTEM,"$:F.*",FDV,53248,10,8,8,8,3:IFF$=""THEN490
250 IFVAL(E$)=0THEN270
260 GOSUB460:GOTO200
270 POKE862,0:SYSTEM+21,216
280 SYSTEM+30,F$,FDV,49152
290 IFVAL(E$)=0THEN310
300 GOSUB460:GOTO130
310 SYSTEM+24,6,10,"CHECK PRINTER & PAPER SUPPLY":PRINT:PRINT
320 PRINTTAB(7)PK$:GOSUB440
330 POKE863,0
340 OPEN4,4,0:PRINT#4:PRINT#4
350 SYSML+3
360 OPEN4,4,0:FORI=1TO2:PRINT#4:NEXT:CLOSE4:GOTO130
370 :
380 FL=0:SYSTEM+30,"PD.F V",DV,826:IFVAL(E$)=62THEN410
390 IFVAL(E$)=0THENRETURN
400 GOSUB460:SYSTEM+21,216:RETURN
410 FL=2:SYSTEM+24,8,10,"NO PRINTER DRIVER FOUND":PRINT
420 PRINTTAB(12)"TRY ANOTHER DISK":PRINTTAB(7)""PK$
430 :
440 POKE198,0:WAIT198,1:POKE198,0:RETURN:
450 :
460 TB=20-LEN(E$)/2:SYSTEM+24,TB,14,"":PRINTE$
470 PRINTTAB(7)"PRESS ANY KEY TO CONTINUE":FL=1:GOTO440
480 :
490 SYSTEM+24,6,21,"[154]NO FONT FILES FOUND/SELECTED":PRINT
500 PRINTTAB(10)"DO YOU WANT TO QUIT?"
510 PRINTTAB(18)"Y/N";:SYSTEM+45,"YN":IFF%=2THEN130
520 GOTO40000
530 :
10000 OPEN15,DV,15,"S0:F/S PRINTER":CLOSE15:SAVE"F/S PRINTER",DV:END
10010 :
40000 FORI=0TO21:POKE828+I,8+I:NEXT
40010 IFDV<8ORDV>29ORDV=8THEN40030
40020 A=PEEK(828):B=PEEK(828+DV-8):POKE828,B:POKE828+DV-8,A
40030 A$="HELLO CONNECT":FORJ=8TO29:I=PEEK(828+J-8):IFI=14THENNEXT
40040 CLOSE2:OPEN2,I,2:CLOSE2:IFSTTHEN40060
40050 CLOSE15:OPEN15,I,15,"R0:"+A$+"="+A$:INPUT#15,ER:CLOSE15:IFER=63THEN40070
40060 NEXT:PRINT"[147]":POKE53272,23:POKE186,8:END
40070 Q$=CHR$(34):POKE646,PEEK(53281):PRINT"[147]":POKE53272,23
40080 PRINT"[147]P[207]2048,0:P[207]44,8:P[207]43,1:P[207]56,160:P[207]55,0:CLR:L[207]"Q$A$Q$","I
40090 PRINT"RUN:":POKE631,13:POKE632,13:POKE198,2:END
40100 :
60000 PRINT"[147]":Z$=" [152]                                      ":POKE214,10:PRINT
60010 PRINT" [155][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]":FORI=0TO9:PRINTZ$:NEXT
60020 PRINT" [151][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][152]"
60030 Z$(0)="[198] [207] [206] [212]  [211] [212] [213] [196] [201] [207]  [208] [210] [201] [206] [212] [197] [210]" :Z$(1)="BY [194]OB [205]ARKLAND"
60040 Z$(2)="([195]) 1996 BY [202] & [198] [208]UBLISHING, [201]NC."+CHR$(13)
60050 Z$(3)="[212]HIS PROGRAM IS THE COPYRIGHTED WORK
60060 Z$(4)[178]"OF MID$ & ASC (null)UBLISHING, RIGHT$NC.  RIGHT$T IS NOT"
60070 Z$(5)[178]"SHAREWARE OR IN THE PUBLIC DOMAIN."
60080 Z$(6)[178]"1-800-594-3370 OR 1-318-221-8718
60090 POKE214,12:PRINT
60100 FORI=0TO6:PRINTTAB(20-(LEN(Z$(I))/2))""Z$(I):NEXT:RETURN